by Tommyboy(Adv.Prog(LPHS)) (1 Submission)
Category: Games
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 3rd December 2009
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Slot Machine, and by my opinion a good one ^-^ (for 2005)
API Declarations
Dim intrnd2 As Integer = 1 ' slot reel 2
Dim intrnd3 As Integer = 1 ' slot reel 3
Dim inttokens As Integer = 100
inttokens = inttokens + 1000 ' this is a debugger cheat
Me.lblTanswer.Text = inttokens 'it gives the debugger 1000 tokens
End Sub
Private Sub btnPull_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPull.Click
intrnd1 = Val(8 * Rnd() + 1)
intrnd2 = Val(8 * Rnd() + 1) 'these give the values in the slot reels
intrnd3 = Val(8 * Rnd() + 1)
If intrnd1 = 1 And intrnd2 = 1 And intrnd3 = 1 Then 'prize for triple 1's
inttokens = inttokens + 4
MessageBox.Show("You won 4 tokens!", "Slots") 'prize for triple 2's
ElseIf intrnd1 = 2 And intrnd2 = 2 And intrnd3 = 2 Then
inttokens = inttokens + 8
MessageBox.Show("You won 8 tokens!", "Slots") 'prize for triple 3's
ElseIf intrnd1 = 3 And intrnd2 = 3 And intrnd3 = 3 Then
inttokens = inttokens + 12
MessageBox.Show("You won 12 tokens!", "Slots")
ElseIf intrnd1 = 4 And intrnd2 = 4 And intrnd3 = 4 Then 'prize for triple 4's
inttokens = inttokens + 16
MessageBox.Show("You won 16 tokens!", "Slots") 'prize for triple 5's
ElseIf intrnd1 = 5 And intrnd2 = 5 And intrnd3 = 5 Then
inttokens = inttokens + 25
MessageBox.Show("you won 25 tokens!", "slots")
ElseIf intrnd1 = 6 And intrnd2 = 6 And intrnd3 = 6 Then 'prize for triple 6's
inttokens = inttokens + 198
MessageBox.Show("you got 198 tokens devil worshipper!!", " Slots") 'prize for the jackpot
ElseIf intrnd1 = 7 And intrnd2 = 7 And intrnd3 = 7 Then
inttokens = inttokens + 700
MessageBox.Show("You got the Jackpot!!! 700 tokens!!", "Slots")
ElseIf intrnd1 = 8 And intrnd2 = 8 And intrnd3 = 8 Then 'prize for triple 8's
inttokens = inttokens + 50
MessageBox.Show("You won 50 tokens!", "Slots")
ElseIf intrnd1 = 9 And intrnd2 = 9 And intrnd3 = 9 Then 'prize for triple 9's
inttokens = inttokens + 65
MessageBox.Show("You won 65 tokens!", "Slots")
ElseIf intrnd1 = 1 And intrnd2 = 2 And intrnd3 = 3 Then 'prize again... this is awful repepititive
inttokens = inttokens + 123
MessageBox.Show(" You won 123 tokens!", "Slots")
ElseIf intrnd1 = 7 And intrnd2 = 8 And intrnd3 = 9 Then 'prize
inttokens = inttokens + 98
MessageBox.Show("you won 98 tokens!", "slots")
ElseIf intrnd1 = 3 And intrnd2 = 2 And intrnd3 = 1 Then 'prize again
inttokens = inttokens + 123
MessageBox.Show("You won 123 tokens!", "Slots")
ElseIf intrnd1 = 4 And intrnd2 = 5 And intrnd3 = 6 Then 'prize
inttokens = inttokens + 56
MessageBox.Show("You won 56 tokens!", "Slots")
ElseIf intrnd1 = 2 And intrnd2 = 2 And intrnd3 = 5 Then 'prize for ryans bonus
inttokens = inttokens + 69
MessageBox.Show("You won the Ryan Bonus!", "Slots")
ElseIf intrnd1 = 7 And intrnd2 = 1 And intrnd3 = 1 Then 'the prize for the dave bonus
inttokens = inttokens + 118
MessageBox.Show("Congrats..... you got the Dave Bonus!", "Slots")
ElseIf intrnd1 = 2 And intrnd2 = 9 And intrnd3 = 7 Then
inttokens = inttokens + 67 '297 prize
MessageBox.Show("You got 67 tokens....good job!", "Slots")
ElseIf intrnd1 = 6 And intrnd2 = 8 And intrnd3 = 4 Then
inttokens = inttokens + 45
MessageBox.Show("you got some tokens... 45", "Slots") ' prize for 684
ElseIf intrnd1 = 9 And intrnd2 = 2 And intrnd3 = 1 Then
inttokens = inttokens + 40
MessageBox.Show("You got 40 tokens. good job", "Slots") 'prize
ElseIf intrnd1 = 1 And intrnd2 = 5 And intrnd3 = 9 Then
inttokens = inttokens + 35
MessageBox.Show("You got 35 tokens, congratulations!", "Slots") 'prize
ElseIf intrnd1 = 1 And intrnd2 = 8 And intrnd3 = 7 Then
inttokens = inttokens + 42
MessageBox.Show("You got 42 tokens!", "slots")
ElseIf intrnd1 = 8 And intrnd2 = 4 And intrnd3 = 8 Then 'prize
inttokens = inttokens + 39
MessageBox.Show("You got 39 tokens!", "from the Admin")
ElseIf inttokens = 0 Then
MessageBox.Show("Sorry, your out of tokens!", "Game Over!") 'the gameover code
Me.btnPull.Visible = False 'makes u unable to play anymore
lblslotnumber1.Text = ""
lblslotnumber2.Text = "" 'this clears reels
lblslotnumber3.Text = ""
Else
inttokens = inttokens - 1 'takes coin away
End If
If inttokens > Val(5000) Then
mnuiExtra.Visible = True 'the cheat menu code
End If
If inttokens > Val(10000) Then
lblmagiccat.Visible = True
Else : lblmagiccat.Visible = False 'pro status
End If
If inttokens > Val(5000) Then
inttokens = inttokens - 1
lblmagicdog.Visible = True 'this is maverick status
Else : lblmagicdog.Visible = False
End If
If inttokens > Val(10000) Then
inttokens = inttokens - 1
Me.lblmagicdog.Visible = False
Me.mnuiBonus.Visible = True 'this is what sets up pro status
Else : Me.mnuiBonus.Visible = False
End If
Me.lblslotnumber1.Text = intrnd1
Me.lblslotnumber2.Text = intrnd2
Me.lblslotnumber3.Text = intrnd3 'display code
Me.lblTanswer.Text = inttokens
End Sub
Private Sub frmSlots_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
inttokens = inttokens - 1 'this is what happens when the form loads, like the spin of the reels and the taking of a token
End Sub
Private Sub mnuireel0_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuireel0.Click
lblslotnumber1.Text = "0" And lblslotnumber2.Text = "0" And lblslotnumber3.Text = "0"
MessageBox.Show("Wow....zeros thats impossible! Good job cheater!", "Game Over") 'the trap cheat. lol, eat this cheaters
inttokens = 0
Me.lblTanswer.Text = inttokens
End Sub
Private Sub mnuireel7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuireel7.Click
lblslotnumber1.Text = "7" And lblslotnumber2.Text = "7" And lblslotnumber3.Text = "7"
MessageBox.Show("You got the Jackpot!!! 700 tokens!! but you cheated!!", "Cheater") 'cheating for jackpot
inttokens = inttokens + 700
Me.lblTanswer.Text = inttokens
End Sub
Private Sub mnuireel9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuireel9.Click
lblslotnumber1.Text = "9" And lblslotnumber2.Text = "9" And lblslotnumber3.Text = "9"
MessageBox.Show("you cheated..... enjoy your 65 tokens.... cheater!", "Cheater") 'cheating for triple 9's
inttokens = inttokens + 65
Me.lblTanswer.Text = inttokens
End Sub
Private Sub mnuitoken10_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuitoken10.Click
inttokens = inttokens + 10 'cheating for 10 tokens
Me.lblTanswer.Text = inttokens
End Sub
Private Sub mnuitoken100_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuitoken100.Click
inttokens = inttokens + 100
Me.lblTanswer.Text = inttokens 'cheating for 100 tokens
End Sub
Private Sub mnuiToken1000_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuiToken1000.Click
inttokens = inttokens + 1000 'cheating for 1000 tokens
Me.lblTanswer.Text = inttokens
End Sub
Private Sub mnuiExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuiExit.Click
Application.Exit() ' exit
End Sub
Private Sub mnuiRestart_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuiRestart.Click
inttokens = 100 'this resets the player vault
mnuiExtra.Visible = False 'disables cheats again
btnPull.Visible = True 'allows players to play again once game overed
Me.lblslotnumber1.Text = ""
Me.lblslotnumber2.Text = "" 'clears reels
Me.lblslotnumber3.Text = ""
Me.lblmagicdog.Visible = False
Me.lblShroud.Visible = False
Me.lblmagiccat.Visible = False
Me.lblTanswer.Text = inttokens 'this stes tokens
End Sub
Private Sub mnuileetstart_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuileetstart.Click
inttokens = 1500 'this resets player vault
Me.mnuiBonus.Visible = False 'this gets rid of the pro menu
Me.lblTanswer.Text = inttokens 'displays tokens
Me.lblmagiccat.Visible = False 'gets rid of pro banner
Me.lblslotnumber1.Text = ""
Me.lblslotnumber2.Text = "" 'clears reels
Me.lblShroud.Visible = False 'displays basic functions
Me.lblslotnumber3.Text = ""
End Sub
Private Sub mnuidissapear_Click(ByVal sender As Object, ByVal e As System.EventArgs)
If Me.mnuiCheats.Visible = True Then
Me.mnuiCheats.Visible = False 'this is the pro cheat menu, destroyer
Else : Me.mnuiCheats.Visible = True
End If
End Sub
Private Sub mnuidebug_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuidebug.Click
If Me.lblShroud.Visible = False Then
Me.lblShroud.Visible = True 'debug tool
Else : Me.lblShroud.Visible = False
End If
End Sub
End Class